home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Example Module < prev    next >
Encoding:
Text File  |  1998-10-26  |  1.2 KB  |  47 lines  |  [TEXT/ScoM]
  1. ;; Example Module
  2. ;; When you place this file into the Environment/Extensions folder, 
  3. ;; and reboot a new menu will appear on the bottom of the palette. 
  4. ;; A module has 3 parts, function definitions, menu
  5. ;; definitions and help string definitions. To make HyperHelp
  6. ;; documents create a new folder, add a hyperitem from eval menu,
  7. ;; and save it to that folder.
  8.  
  9. ;; define functions
  10.  
  11. ; these are dummy functions and do nothing serious, replace
  12. ; with your own functions
  13.  
  14. (defun more (x y z)
  15.   (list x y z))
  16.  
  17. (defun more3 (x y z)
  18.   (list (list x y z)))
  19.  
  20. (progn 
  21.  
  22. ;; define menu
  23.  
  24. (add-appendix-menu '(
  25.    (Example\ Module topic1 topic2)
  26.    (topic1 more and\ more)
  27.    (topic2 (This is not sorted.))
  28.    (and\ more more1 more2 more3)
  29. ))
  30.  
  31. ;; For each terminating menu items define help strings.
  32. ;; In this example they are more, I\'m, not, sorted!, 
  33. ;; more1, more2, more3. Here only two are defined.
  34. ;; The strings will be returned when you select the item
  35. ;; from the menu. Use backslash to include spaces within
  36. ;; menu items.
  37.  
  38. ;; Remember to deselect Open hyperhelp on menu select from the 
  39. ;; settings to get the help string pasted on window.
  40.  
  41. (def-help '(
  42.    more "(more 1 2 3)"
  43.    more3 "(more3 1 2 3)"
  44. ))
  45.  
  46. )
  47.